home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / wb / Picticon1_4.lha / Picticon / Source / mod / compare.e < prev    next >
Text File  |  1995-06-07  |  198b  |  10 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. PROC bigger(a,max) IS IF (a<max) THEN max ELSE a
  5. PROC smaller(a,min) IS IF (a>min) THEN min ELSE a
  6. PROC limit(a,min,max)
  7.     IF a<min THEN a:=min
  8.     IF a>max THEN a:=max
  9. ENDPROC a
  10.